home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dll_gen / loads / loader / localapi.bas < prev    next >
Encoding:
BASIC Source File  |  1996-01-18  |  3.8 KB  |  60 lines
  1. Option Explicit
  2. ' ============================================================================================
  3. ' Type declarations for API Functions
  4. ' ============================================================================================
  5. Type OFStruct
  6.     cBytes As String * 1
  7.     fFixedDisk As String * 1
  8.     nErrCode As Integer
  9.     reserved As String * 4
  10.     szPathName As String * 128
  11. End Type
  12.  
  13. Type PARAMETERBLOCK
  14.     wEnvSeg As Integer
  15.     lpCmdLine As Long
  16.     lpCmdShow As Long
  17.     dwReserved As Long
  18. End Type
  19.  
  20. ' ============================================================================================
  21. ' GDI API Declarations
  22. ' ============================================================================================
  23. Declare Function BitBlt Lib "Gdi" (ByVal destHdc, ByVal X, ByVal Y, ByVal w, ByVal h, ByVal srcHdc, ByVal srcX, ByVal srcY, ByVal Rop As Long)
  24.  
  25. ' ============================================================================================
  26. ' Kernel API Declarations
  27. ' ============================================================================================
  28. Declare Sub FreeModule Lib "Kernel" (ByVal hModule As Integer)
  29. Declare Function GetModuleFileName Lib "Kernel" (ByVal hModule As Integer, ByVal lpFilename As String, ByVal nSize As Integer) As Integer
  30. Declare Function GetModuleHandle Lib "Kernel" (ByVal lpModuleName As String) As Integer
  31. Declare Function GetModuleUsage Lib "Kernel" (ByVal hModule As Integer) As Integer
  32. Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal nDefault As Integer, ByVal lpFilename As String) As Integer
  33. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFilename As String) As Integer
  34. Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  35. Declare Function GetSystemDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  36. Declare Function GetVersion Lib "Kernel" () As Long
  37. Declare Function LoadLibrary Lib "Kernel" (ByVal lpLibFileName As String) As Integer
  38. Declare Function LoadModule Lib "Kernel" (ByVal lpModuleName As String, lpParameterBlock As PARAMETERBLOCK) As Integer
  39. Declare Function lstrcpyn Lib "Kernel" (ByVal lpszString1 As Any, ByVal lpszString2 As Long, ByVal cChars As Integer) As Long
  40. Declare Function OpenFile Lib "Kernel" (ByVal lpFilename As String, lpReOpenBuff As OFStruct, ByVal wStyle As Integer) As Integer
  41. Declare Function WinExec Lib "Kernel" (ByVal lpCmdLine As String, ByVal nCmdShow As Integer) As Integer
  42. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Integer
  43.  
  44. ' ============================================================================================
  45. ' User API Declarations
  46. ' ============================================================================================
  47. Declare Function FindWindow Lib "User" (ByVal c As Any, ByVal s As Any) As Integer
  48. Declare Function GetSystemMenu% Lib "User" (ByVal hWnd%, ByVal bRevert%)
  49. Declare Function RemoveMenu% Lib "User" (ByVal hMenu%, ByVal nPosition%, ByVal wFlags%)
  50. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  51. Declare Function SetWindowPos Lib "user" (ByVal h%, ByVal hb%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer
  52. Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
  53.  
  54. Global Const SW_HIDE = 0
  55. Global Const SW_SHOWNORMAL = 1
  56.  
  57.  
  58.  
  59.  
  60.